home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / ESC_FILE.M < prev    next >
Encoding:
Text File  |  1989-04-28  |  1.3 KB  |  41 lines
  1. (*$c-*)
  2. module t;
  3. (*
  4.  * test für ctrl-codes in text-files
  5.  *)
  6.  
  7. from inout import WriteString,writeln,write,read, readstring,
  8.         done, closeoutput, closeinput, redirectoutput, redirectinput;
  9.  
  10. const   esc=33C;
  11.         ron='p';
  12.         roff='q';
  13.  
  14. var ch:char;
  15.  
  16. begin
  17.   redirectoutput ('g:\dat',false);
  18.   WriteString ('normal');
  19.   write (esc);
  20.   write (ron);
  21.   WriteString ('reverse');
  22.   write (esc);
  23.   write (roff);
  24.   WriteString ('normal');
  25.   writeln;
  26.   closeoutput;
  27.   redirectinput ('g:\dat');
  28.   if done then
  29.     loop
  30.       read (ch);
  31.       if not done then exit end;
  32.       write (ch)
  33.     end
  34.   end;
  35.   closeinput;
  36.   read(ch)
  37. end t.
  38.  
  39. ə
  40. (* $FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$000001D6$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688A$FFF0688AÇ$0000006BT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$0000009F$FFF0688A$0000022D$00000259$00000278$000001F2$0000028F$00000285$0000009F$000001E2$000001BB$0000006B$0000027C$00000269$000001E2$000000ABãÇÇ*)
  41.